home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 171 / 171.d81 / demo 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  331 b   |  18 lines
  1. 5 poke53280,0:poke53281,0:print"[147][154]"
  2. 10 fori=0to100
  3. 12 printpeek(i),i
  4. 14 nexti
  5. 16 print"test 1 complete!"
  6. 18 forf=0to299:nextf
  7. 20 fori=100to0step-1
  8. 22 printi,peek(i)
  9. 24 nexti
  10. 26 print"test 2 complete!"
  11. 28 forf=0to299:nextf
  12. 30 fori=0to10
  13. 40 poke53280,i:poke53281,i+1
  14. 50 forf=0to299:nextf
  15. 60 nexti:print"[147][154]";
  16. 90 print"this test of the dual workstation is now complete..."
  17. 100 poke53280,0:poke53281,0:end
  18.